home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Tools / GuiEdit.gc < prev    next >
Encoding:
Gui4CLI script  |  1999-11-24  |  2.4 KB  |  117 lines
  1. G4C
  2.  
  3. WINBIG 20 20 279 127 "Clone Gadgets into your GUIs"
  4. wintype 11110001
  5. resinfo 8 640 256
  6.  
  7. xonload
  8.     guiopen guiedit.gc
  9.  
  10. xonclose
  11.     guiquit guiedit.gc
  12.  
  13. ; ===================================================================
  14. ;            The menus
  15. ; ===================================================================
  16.  
  17.  
  18. xMenu  Project "New GUI" "" N
  19.     gosub guiedit.gc newfile
  20.  
  21. xroutine newfile        ; also called from other guis
  22.     ReqFile -1 -1 300 200 "Enter new GUI name:" SAVE guiname ''
  23.     if $guiname < ' '
  24.        stop
  25.     endif
  26.     ifexists file $guiname
  27.        guiload $guiname
  28.     else
  29.        extract guiname file name
  30.        .dummy = 'G4C\n\nWinBig -1 -1 200 100 $name\nWinType 11110001\n\nxOnLoad\n\tGuiOpen #This\n\nxOnClose\n\tGuiQuit #This\n\n'
  31.        copy env:.dummy $guiname
  32.        guiload $guiname
  33.        delete env:.dummy
  34.     endif
  35.     return 1
  36.  
  37. xMenu  Project "Load..." '' L
  38.     ReqFile -1 -1 300 200 "Choose GUI:" LOAD guiname ''
  39.     if $guiname > ' '
  40.        guiload $guiname
  41.        guiopen $guiname
  42.     endif
  43.  
  44. xMenu  Project BARLABEL  '' ''
  45.  
  46. xMenu  Project About..  '' ''
  47.     ezreq 'Gui4Cli Gui Editor Gui\n\nChoose Gadgets with CONTROL-Click\nand Click them into your window.' "You bet!.." ''
  48.  
  49. xMenu  Project Quit  '' Q
  50.     guiquit guiedit.gc
  51.     guiquit gridset.g
  52.  
  53.  
  54. ; ===================================================================
  55. ;        The gadgets for picking up & cloning
  56. ; ===================================================================
  57.  
  58. ; ----------------------------- listviews
  59.  
  60. ; some text for the lvs, so they can be clicked..
  61. TextFile t:data
  62. Empty
  63. ###
  64.  
  65. CTEXT 9 0 "Simple LV" #screen 8 2 0 0001
  66. XLISTVIEW 6 15 80 22 "" variable t:data 10 TXT
  67.  
  68. CTEXT 9 36 "Multi LV" #screen 8 2 0 0001
  69. XLISTVIEW 5 49 80 22 "" "variable" t:data 10 MULTI
  70.  
  71. CTEXT 9 69 "Dir lv" #screen 8 2 0 0001
  72. XLISTVIEW 6 81 80 21 "" "variable" "" 10 DIR
  73.  
  74.  
  75. ; ----------------------------- other gadgets
  76.  
  77.  
  78. XBUTTON 102 31 81 14 "Button"
  79.  
  80. XRADIO 165 4 18 9 variable 6
  81.     RStr Radio1 1
  82.     RStr Radio2 2
  83.  
  84. XCYCLER 102 46 80 16 "" variable
  85.     CStr Cycler 1
  86.     CStr Yes!   2
  87.  
  88. GAUGE 201 81 69 13 IN RIDGE 2 0 50
  89.  
  90. XHSLIDER 102 63 46 12 "" variable 0 100 50 "%ld%%"
  91.  
  92. XPALETTE 102 76 82 13 
  93.  
  94. XTEXTIN 102 90 83 15 "" variable "TextIn" 100
  95.  
  96. TEXT 102 106 82 15 "Text" 40 BOX
  97.  
  98. XCHECKBOX 57 109 26 11 ChkBx variable "On" "Off" ON
  99.  
  100.  
  101. ; ----------------------------- graphics
  102.  
  103. BOX 198 3 70 9 OUT ICONDROP
  104.  
  105. LINE 197 19 268 19 2
  106.  
  107. SQUARE 199 27 67 10 1 NOFILL
  108.  
  109. SQUARE 200 41 68 9 1 FILL
  110.  
  111. CIRCLE 231 59 12 6 1 NOFILL
  112.  
  113. CIRCLE 232 73 13 6 3 FILL
  114.  
  115. XTEXTBOX 198 96 74 26 "" "TextBox"
  116.  
  117.